home *** CD-ROM | disk | FTP | other *** search
/ LEGO Island 2 Rolling Demo / legoisland2.bin / Xtras / MpegXtra / MpegXtra Behaviors.cst / 00005_Script_MpegXtra Simple Control < prev    next >
Text File  |  1998-10-30  |  1KB  |  39 lines
  1. --MpegXtra Simple control   
  2.  
  3. property videoSprite    -- the sprite number that is getting controlled
  4. property videoCommand   -- the command to be issued
  5.  
  6.  
  7. on DoControl me
  8.   case ( the VideoCommand of me ) of:
  9.     #Play:
  10.       videoplay(sprite the videoSprite of me)
  11.     #Pause:
  12.       videopause(sprite the videoSprite of me)
  13.     #Rewind:
  14.       videostop(sprite the videoSprite of me)
  15.       videoseek(sprite the videoSprite of me, the segmentstart of sprite the videoSprite of me)
  16.       
  17.   end case
  18. end
  19.  
  20.  
  21. on mouseUp me
  22.   DoControl me
  23. end
  24.  
  25.  
  26. ---
  27.  
  28.  
  29. on getPropertyDescriptionList
  30.   
  31.   set p_list = [   #videoCommand: [ #comment:   "Action:",#format:   #symbol,   #range: [ #Play, #Pause, #Rewind],#default:   #Play ], #videoSprite: [ #comment:   "MpegXtra Sprite Channel:", #format:   #integer,   #default:    1] ]                  
  32.   return p_list
  33. end
  34.  
  35. on getBehaviorDescription
  36.   return "Used to create Play, Pause, and Rewind control buttons for a MpegXtra video sprite. " & RETURN & "PARAMETERS:" & RETURN & "Action - Choose the action to perform on mouseUP ( Play, Pause, Rewind )." & RETURN & "DirectMedia Sprite Channel - Enter the number of sprite channel of the MpegXtra video that is being controlled."
  37. end
  38.  
  39.